home *** CD-ROM | disk | FTP | other *** search
/ English in Touch / English In Touch.iso / spagnolo.mst < prev    next >
Text File  |  1994-05-29  |  8KB  |  285 lines
  1. '**************************************************************************
  2. '*                       MSSetup Toolkit Sample 1
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. ''Dialog ID's
  11. CONST WELCOME       = 100
  12. CONST ASKQUIT       = 200
  13. CONST DESTPATH      = 300
  14. CONST EXITFAILURE   = 400
  15. CONST EXITQUIT      = 600
  16. CONST EXITSUCCESS   = 700
  17. CONST OPTIONS       = 800
  18. CONST APPHELP       = 900
  19. CONST BADPATH       = 6400
  20.  
  21. ''Bitmap ID
  22. CONST LOGO = 1
  23.  
  24. GLOBAL DEST$        ''Default destination directory.
  25. GLOBAL OPTCUR$      ''Option selection from option dialog.
  26.  
  27. DECLARE SUB Install
  28. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  29.  
  30.  
  31. INIT:
  32.     CUIDLL$ = "mscSPAG.dll"            ''Custom user interface dll
  33.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  34.  
  35.     SetBitmap CUIDLL$, LOGO
  36.     SetTitle "MSSetup Toolkit English in Touch"
  37.  
  38. '**    szInf$ = GetSymbolValue("STF_SRCINFPATH")
  39. '**    IF szInf$ = "" THEN
  40. '**        szInf$ = GetSymbolValue("STF_CWDDIR") + "SAMPLE1.INF"
  41. '**    END IF
  42. '**    ReadInfFile szInf$
  43.  
  44.     OPTCUR$ = "1"
  45.     DEST$ = "D"
  46.  
  47. '$IFDEF DEBUG
  48.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  49.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  50.     IF IsDriveValid(WinDrive$) = 0 THEN
  51.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  52.         GOTO QUIT
  53.     END IF
  54. '$ENDIF ''DEBUG
  55.  
  56.  
  57.  '**WELCOME:
  58.  '**   sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  59.  
  60.  '**  IF sz$ = "CONTINUE" THEN
  61.  '**     UIPop 1
  62.  '**   ELSE
  63.  '**       GOSUB ASKQUIT
  64.  '**       GOTO WELCOME
  65.  '**   END IF
  66.  
  67. GETPATH:
  68.     SetSymbolValue "EditTextIn", DEST$
  69.     SetSymbolValue "EditFocus", "END"
  70.  
  71. GETPATHL1:
  72.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  73.     DEST$ = GetSymbolValue("EditTextOut")
  74.  
  75.     IF sz$ = "CONTINUE" THEN
  76.         DEST$=DEST$+":" 
  77.         IF ISDRIVEVALID(DEST$) = 0 THEN
  78.             GOSUB BADPATH
  79.             GOTO GETPATHL1
  80.         END IF
  81.         UIPop 1
  82.     ELSEIF sz$ = "REACTIVATE" THEN
  83.         GOTO GETPATHL1
  84. '**    ELSEIF sz$ = "BACK" THEN
  85. '**        UIPop 1
  86. '**        GOTO OPTION
  87.     ELSE
  88.         GOSUB ASKQUIT
  89.         GOTO GETPATH
  90.     END IF
  91.  
  92. OPTION:
  93.     SetSymbolValue "RadioDefault", OPTCUR$
  94.  
  95.  
  96.  
  97.     Install
  98.  
  99.  
  100. QUIT:
  101.     ON ERROR GOTO ERRQUIT
  102.  
  103.     IF ERR = 0 THEN
  104.         dlg% = EXITSUCCESS
  105.     ELSEIF ERR = STFQUIT THEN
  106.         dlg% = EXITQUIT
  107.     ELSE
  108.         dlg% = EXITFAILURE
  109.     END IF
  110. QUITL1:
  111. '**    sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  112. '**    IF sz$ = "REACTIVATE" THEN
  113. '**        GOTO QUITL1
  114. '**    END IF
  115. '**    UIPop 1
  116.  
  117.     END
  118.  
  119. ERRQUIT:
  120.     i% = DoMsgBox("Setup sources were corrupted, call 555-1212!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  121.     END
  122.  
  123.  
  124.  
  125. BADPATH:
  126.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  127.     IF sz$ = "REACTIVATE" THEN
  128.         GOTO BADPATH
  129.     END IF
  130.     UIPop 1
  131.     RETURN
  132.  
  133.  
  134.  
  135. ASKQUIT:
  136.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  137.  
  138.     IF sz$ = "EXIT" THEN
  139.         UIPopAll
  140.         ERROR STFQUIT
  141.     ELSEIF sz$ = "REACTIVATE" THEN
  142.         GOTO ASKQUIT
  143.     ELSE
  144.         UIPop 1
  145.     END IF
  146.     RETURN
  147.  
  148.  
  149.  
  150. '**
  151. '** Purpose:
  152. '**     Builds the copy list and performs all installation operations.
  153. '** Arguments:
  154. '**     none.
  155. '** Returns:
  156. '**     none.
  157. '*************************************************************************
  158. SUB Install STATIC
  159.     
  160.     d$ = GetWindowsDir()
  161.     
  162.     CopyFile d$+"WIN.INI", d$+"WIN.OLD", cmoNone, 0
  163.     CopyFile d$+"system.INI", d$+"system.OLD", cmoNone, 0
  164.  
  165. CopyFile dest$+"\runtime\mciavi.drv", d$+"system\mciavi.drv", cmoNone, 0
  166. CopyFile dest$+"\runtime\msvidc.drv", d$+"system\msvidc.drv", cmoNone, 0
  167. CopyFile dest$+"\runtime\msvideo.dll", d$+"system\msvideo.dll", cmoNone, 0
  168. CopyFile dest$+"\runtime\dispdib.dll", d$+"system\dispdib.dll", cmoNone, 0
  169.  
  170.     CopyFile dest$+"\font\lrhelv.fon", d$+"system\lrhelv.fon", cmoNone, 0
  171.     CopyFile dest$+"\font\lrhelvb.fon", d$+"system\lrhelvb.fon", cmoNone, 0
  172.     CopyFile dest$+"\font\smalle.fon", d$+"system\smalle.fon", cmoNone, 0
  173.     CopyFile dest$+"\font\arial.fot", d$+"system\arial.fot", cmoNone, 0
  174.     ''continuare con tutti i font che vogliamo aggiungere
  175.  
  176.     CopyFile dest$+"\runtime\tbkmm.sbk", "c:\runtime\tbkmm.sbk", cmoNone, 0
  177. CopyFile dest$+"\runtime\tbkmm.sbk", "c:\runtime\tbkmm.sbk", cmoNone, 0
  178. CopyFile dest$+"\runtime\tbkmm.ini", "c:\runtime\tbkmm.ini", cmoNone, 0
  179. CopyFile dest$+"\runtime\tbook.exe", "c:\runtime\tbook.exe", cmoNone, 0
  180. CopyFile dest$+"\runtime\tbknet.exe", "c:\runtime\tbknet.exe", cmoNone, 0
  181. CopyFile dest$+"\runtime\tbkbase.dll", "c:\runtime\tbkbase.dll", cmoNone, 0
  182. CopyFile dest$+"\runtime\tbkbmp.dll", "c:\runtime\tbkbmp.dll", cmoNone, 0
  183. CopyFile dest$+"\runtime\tbkcomp.dll", "c:\runtime\tbkcomp.dll", cmoNone, 0
  184. CopyFile dest$+"\runtime\tbkdb3.dll", "c:\runtime\tbkdb3.dll", cmoNone, 0
  185. CopyFile dest$+"\runtime\tbkdlg.dll", "c:\runtime\tbkdlg.dll", cmoNone, 0
  186. CopyFile dest$+"\runtime\tbkfile.dll", "c:\runtime\tbkfile.dll", cmoNone, 0
  187. CopyFile dest$+"\runtime\tbkmm.dll", "c:\runtime\tbkmm.dll", cmoNone, 0
  188. CopyFile dest$+"\runtime\tbkwin.dll", "c:\runtime\tbkwin.dll", cmoNone, 0
  189. CopyFile dest$+"\runtime\tbkutil.dll", "c:\runtime\tbkutil.dll", cmoNone, 0
  190.  
  191.  
  192.     ''Continuare con tutti i file del runtime che dobbiamo copiare
  193.  
  194.     a$ = GetIniKeyString("WIN.INI", "SOUNDS", "SYSTEMDEFAULT")
  195.      
  196.     b$ = GetIniKeyString("WIN.INI", "EXTENSIONS", "tbk")
  197.  
  198.     c$ = GetIniKeyString("WIN.INI", "toolbook", "startupsysbooks")
  199.  
  200.     d$ = GetIniKeyString("WIN.INI", "fonts", "Arial (TrueType)")
  201.  
  202.     e$ = GetIniKeyString("WIN.INI", "fonts", "Small Fonts (VGA res)")
  203.  
  204.     f$ = GetIniKeyString("WIN.INI", "mci extensions", "AVI")
  205.  
  206.     
  207. IF f$ <> " " THEN
  208.        RemoveIniKey "WIN.INI", "mci extensions", "AVI", cmoNone 
  209.     END IF
  210.  
  211.     CreateIniKeyValue "WIN.INI", "mci extensions", "AVI","AVIvideo", cmoNone  
  212.     
  213.  
  214.  
  215. IF d$ <> " " THEN
  216.        RemoveIniKey "WIN.INI", "fonts", "Arial (TrueType)", cmoNone 
  217.     END IF
  218.  
  219.     CreateIniKeyValue "WIN.INI", "fonts", "Arial (TrueType)","arial.fot", cmoNone  
  220.     
  221. IF e$ <> " " THEN
  222.        RemoveIniKey "WIN.INI", "fonts", "Small Fonts (VGA res)", cmoNone 
  223.     END IF
  224.  
  225.     CreateIniKeyValue "WIN.INI", "fonts", "Small Fonts (VGA res)","smalle.fon", cmoNone  
  226.     
  227.  
  228.  
  229.  
  230.  
  231.     IF b$ <> " " THEN
  232.        RemoveIniKey "WIN.INI", "EXTENSIONS", "TBK", cmoNone 
  233.     END IF
  234.  
  235.     CreateIniKeyValue "WIN.INI", "EXTENSIONS", "TBK","c:\runtime\tbook.exe ^.tbk", cmoNone  
  236.  
  237.     IF a$ <> " " THEN
  238.  
  239.        RemoveIniKey "WIN.INI", "SOUNDS", "SYSTEMDEFAULT", cmoNone
  240.        CreateIniKeyValue "WIN.INI", "SOUNDS", "SYSTEMDEFAULT", " ", cmoNone
  241.        
  242.     END IF 
  243.    
  244.  
  245.     IF c$ <> " " THEN
  246.        RemoveIniKey "WIN.INI", "toolbook", "startupsysbooks", cmoNone 
  247.     END IF
  248.  
  249.     CreateIniKeyValue "WIN.INI", "toolbook", "startupsysbooks","c:\runtime\tbkmm.sbk", cmoNone  
  250.     
  251.     ''continuare ad aggiungere voci per i font da caricare in win.ini
  252.  
  253.     CreateProgmanGroup "Parsec", "", cmoNone
  254.  
  255.     ShowProgmanGroup  "Parsec", 1, cmoNone
  256.     CreateProgmanItem "Parsec", "English in Touch - spanish version",DEST$+ "\english\englishe.tbk ", DEST$+"\immagine.ico", cmoOverwrite
  257.   
  258.  
  259. END SUB
  260.  
  261.  
  262.  
  263. '**
  264. '** Purpose:
  265. '**     Appends a file name to the end of a directory path,
  266. '**     inserting a backslash character as needed.
  267. '** Arguments:
  268. '**     szDir$  - full directory path (with optional ending "\")
  269. '**     szFile$ - filename to append to directory
  270. '** Returns:
  271. '**     Resulting fully qualified path name.
  272. '*************************************************************************
  273. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  274.     IF szDir$ = "" THEN
  275.         MakePath = szFile$
  276.     ELSEIF szFile$ = "" THEN
  277.         MakePath = szDir$
  278.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  279.         MakePath = szDir$ + szFile$
  280.     ELSE
  281.         MakePath = szDir$ + "\" + szFile$
  282.     END IF
  283. END FUNCTION
  284.  
  285.